COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VIDTST"
C00004 ENDMK
C⊗;
BEGIN "VIDTST"
REQUIRE "VIDNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER ARRAY CHAN[0:5];
INTEGER I,J,B; REAL SX,SY; STRING A;

CHAN[5]←'36; CHAN[4]←'35; CHAN[3]←'34; CHAN[2]←'33; CHAN[1]←'37; CHAN[0]←'32;
DDINIT; SCREEN(-1,-1,1,1);

WHILE TRUE DO
 BEGIN
 OUTSTR("PICTURE NAME:"); PIXDIM(INCHWL);
  BEGIN
  INTEGER ARRAY PIX[1:PICSIZ];
  GETPIX(PIX);
  OUTSTR("SCALE X,Y:"); SX←REALSCAN(A←INCHWL,B);  SY←REALSCAN(A,B);
  FOR I←PICBIT-1 STEP -1 UNTIL 0 DO
   BEGIN
   DRKEN; RECTAN(-SX,-SY,SX,SY);
   VIDEO(-SX,-SY,SX,SY,PIX[1],1 LSH I);
   FOR J←1 STEP 1 UNTIL 3 DO DPYUP(CHAN[I+6-PICBIT]);
   END;
  END;
 END;

END;